<script>on mouseUpput "Click the mouse to abort." into cd field "clickToAbort"show cd field "clickToAbort"lock screenset scroll of cd field "AuthorIndex" to zeroset scroll of cd field "KeywordIndex" to zeroput empty into cd field "KeywordIndex"put empty into cd field "AuthorIndex"put (the number of cards) - 1 && "Cards" into ¬cd field "numberOfCards"repeat with j = 1 to the number of cardsset cursor to busyif the mouse is down thenhide cd field "clickToAbort"exit mouseUpend ifput field "Keywords" of cd j into tempif temp is not empty thenif temp is not in cd field "KeywordIndex" thenif return is not in temp then put return after tempput temp after cd field "KeywordIndex"end ifend ifput field "Author" of cd j into tempif temp is not empty thenif temp is not in cd field "AuthorIndex" thenif return is not in temp then put return after tempput temp after cd field "AuthorIndex"end ifend ifend repeatplay harpsichordhide cd field "clickToAbort"end mouseUp</script>